# NOT RUN {
mean.true <- 20
Pi.true <- c(1/4, 3/4)
kappa.true <- 0.5
r.mixlink.pois(n = 30, mean.true, Pi.true, kappa.true)
d.mixlink.pois(y = 21, mean.true, Pi.true, kappa.true)
d.mixlink.pois(y = 21, mean.true, Pi.true, kappa.true, log = TRUE)
p.mixlink.pois(y = 21, mean.true, Pi.true, kappa.true)
# }
Run the code above in your browser using DataLab